Top 10k strings from 16-48 Magazine - Issue 22 (1985)(16-48 Tape Magazine)(Side B).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
15 0000000000000000
8 z$="00000202
6 RUN THE TAPE
5 STOP THE TAPE
5 ""ffff""""""""(
4 ffffffffffffffffffff
4 LET THE TAPE RUN
4 """"""""""""""(
3 pot=pot+10
3 PRESS A KEY
3 ;"lib3code"
3 ;"fnscfdbrbg"
3 ,yy;c$((d-1
3 )*(l>lc),16
2 ~~~~~~~~~~~~~~~~~~~~~~~~
2 ~~~~~~~~~~~~~~~~~~~~~~~
2 ~~~~~~~~~~~~~~~~~
2 ~~~~~~~~~~~~~~~~
2 ~~~~~~~~~~~~~~~
2 ~~~~~~~~~~~~~~
2 ~~~~~~~~~~
2 z$="10030203STOP THE TAPE":
2 pot=pot+togo
2 p(g)=p(g)-10
2 line=line+vmag:
2 l=l+(k$="6"
2 i(f)=h(f):
2 column=17.5
2 column=1.5
2 calls=players-1
2 calls=calls+1
2 c(dc)=h(g):
2 c(dc)=h((f-1
2 London."",""01 353 0246"",""CODE"""
2 Fleet Street
2 ;"tracecode"
2 ;"library 3"
2 ;"` ";
2 ;"Player ";g-1
2 ;"DRAW POKER";
2 ;"CROSSWORD":
2 *(l>lc);" "
2 "tracecode"
2 "lib3code"
2 "fnscfdbrbg"
2 "TAPE NUMBER";K$:
2 "Lots of these followed by...","9000
2 ""R Maxwell Esq."",""c/o Sinclair Research,
2 ""END""","The end marker."
2 ""&ffb""""""""(
2 """ff"""""""""(
2 copies.)"
2 STOP TAPE
2 START TAPE
2
1 ~~~~~~~~~~~~00000000000000000000000000000000000000000000000044200000000000000000000000000
1 ~~~~~~~~~~~~
1 {{{{{{{{{{{{{{{{{{{{{{{{
1 {{{{{{{{{{{{{{
1 {{{{{{{{{{{{
1 {{{{{{{{{{
1 z$="INSTRUCTIONS":
1 z$="20080202CHEAT AT ":
1 z$="20070202PRESENTS":
1 z$="20070201SPECTRUM.":
1 z$="20050201DRAW POKER":
1 z$="20010202I BET YOU EVEN ":
1 z$="18030303PATIENCE!":
1 z$="17040203M. E. Yates":
1 z$="10080505'C'":
1 z$="10030203RUN THE TAPE":
1 z$="10020304GOOD LUCK!":
1 z$="10020203
1 z$="04050305REVIEWS":
1 z$="04030104
1 z$="0110020216/48":
1 z$="01020104
1 z$="00060102THE HISOFT COMPILER":
1 z$="00050203THE HANDS:":
1 z$="00040202PORTABILITY":
1 z$="00040202CONCLUSIONS":
1 z$="00030202THE BAD NEWS":
1 z$="00020302COMPILING":
1 z$="00020202THE GOOD NEWS":
1 z$="00010202THE C LANGUAGE":
1 z$="00010202SO WHY BOTHER?":
1 z$="00010202IS IT STANDARD?":
1 z$="00000802DEMO":
1 z$="00000204
1 y(sub+f)=f+1
1 y(sub+ct)=f:
1 xx,yy;v(d);" "
1 x,y;c$(c1)
1 x+1,y;c$(c1):
1 x(g)=x(g)+1
1 x$="You have ":
1 x$="Player "+
1 x$=" WELL DONE! "
1 x$=" HARD LUCK! ":
1 x$;"not enough to"'"play so the game has to end."
1 which works like this..."
1 wait=65261
1 v=hand values, p=purses, c=pack+52 discards, h=5*5 cards (1-52), i=5*5 cards (2-14), c$=5*5 cards vals+suits
1 v(g)=v(g)+300
1 v(g)=i(a+5
1 v(f)>v(win)
1 v(f)=v(f)-300
1 v$=" Press any key to continue. "
1 togo>p(f)/10
1 togo=togo+raze
1 togo=togo+amt
1 togo<p(f)/4
1 togo<p(f)/10
1 togo+raze>p(1
1 togo+amt>p(f)
1 taller<1.5
1 start of hand
1 stack=u(h)
1 stack=round:
1 stack=max:
1 stack+call
1 round=round+1
1 rev3 a
1 rev2
1 rev1
1 rest=rest+round-1
1 rest=rest+5
1 qsort
1 prt sorted
1 pppppxxxxxxxxxxxxxxxxxxxxxx0pppppppppxxxxxxxxxxxxxxxxxxxxxx0pppppppppxxxxxxxxxxxxxxxxxxxxxx0pppppppppxxxxxxxxxxxxxxxxxxxxxx0pppppppppxxxxxxxxxxxxxxxxxxxxxx0pppppppppxxxxxxxxxxxxxxxxxxxxxx0pppppppppxxxxxxxxxxxxxxxxxxxxxx0pppppppppxxxxxxxxxxxxxxxxxxxxxx0pppppppppxxxxxxxxxxxxxxxxxxxxxx0pppppppppxxxxxxxxxxxxxxxxxxxxxx0pppppppppxxx~xxxxxxxxxxxxxxxxxx0pppppppppxxxxxxxxxxxxxxxxxxxxxx0pppppppppxxxxxxxxxxxxxxxxxxxxxx0pppppppppxxxxxxxxxxxxxxxxxxxxxx0pppppppppxxxxxxxxxxxxxxxxxxxxxx0pppppppppxxxxxxxxxxxxxxxxxxxxxx0pppppppppxxxxxxxxxxxxxxxxxxxxxx0pppppppppxxxxxxxxxxxxxxxxxxxxxx0pppppppppxxxxxxxxxxxxxxxxxxxxxx0pppppppppxxxxxxxxxxxxxxxxxxxxxx0pppppppppxxxxxxxxxxxxxxxxxxxxxx0pppppppppp0000000000000000000000ppppppppppppppppppppppppppppppppppppxxx0ppppxxxxxxxxxxxxxxxxxxx0ppppxxx0ppppxxxxxxxxxxxxxxxxxxx0ppppxxx0ppppxxxxxxxxxxxxxxxxxxx0ppppxxx0ppppxxxxxxxx~xxxxxxxxxx0ppppxxx0ppppxxxxxxxxxxxxxxxxxxx0ppppxxx0ppppxxxxxxxxxxxxxxxxxxx0ppppxxx0pppp00000000xxxxxxxxxxx0pppp0000ppppppppppppxxxxxxxxxxx0pppppppppppp
1 pot=pot+togo:
1 pot=pot+25
1 poss flush
1 ply CH/VAL
1 players=players-1
1 players=calls-2
1 pbstack overflow
1 p(win)=p(win)+pot:
1 p(f)=p(f)-togo:
1 p(f)=p(f)-5
1 p(f)=p(f)-(togo)
1 p(f)=10000
1 o$="OPEN `":
1 o$="AND RAISE `"
1 nEnter name number
1 means that you can start to get to grips with it fairly quickly."
1 max=stack-100
1 low=char-hi*256
1 long=long1
1 long<long1
1 line=line+1
1 library 3
1 lib3code E
1 lastup=raze
1 lastup=amt
1 l=l+(l<max)*(k$="6"
1 i,o;"HIT A KEY(
1 i(x)=i(y):
1 i(f)=i(f)-39
1 i(f)=i(f)-26
1 i(f)=i(f)-13
1 hand's discards
1 h(x)=h(y):
1 h(s2)=c(s1):
1 h(q)=c(nc):
1 h(a+f)<t+14
1 h(a+ch)=c(nc):
1 graphics 1
1 fnscfdbrbgX
1 first part of anim prog
1 f;" SORTING "
1 down=down-8
1 down-a*taller-t,across-b*wider:
1 demo
1 d$(d)<165
1 char=char-256
1 changed cards
1 ch=y(sub-1
1 call=u(h+1
1 call=max-stack:
1 c=c+(k$="8"
1 c(dc)=h(q):
1 c(dc)=h(a+ch):
1 c$(x)=c$(y):
1 c
1 bottom right corner of the
1 amt=lastup+10
1 agazine Ltd. *6\$:
1 across=wider*8
1 across=across+wider*8
1 across-b*wider,down-a*taller-t:
1 across-b*wider,(down-a*taller-t)-1
1 a$="COMMANDS":
1 a$=" "
1 a$,t$,c$","read address into a$, telephone number into t$ and code into c$.","60 IF c$(2
1 a$(n)>a$(n+1
1 a$(n)=a$(n+1
1 a$","Print Name and address."
1 `<<<<<<<<<<<<<<<<<4
1 ______________|_______________
1 Z$="SIDE A | SIDE B":
1 Z$="LLCC0202"+A$(N,1
1 Z$="16020303by HISOFT":
1 Z$="08060108SEE YOU NEXT MONTH":
1 Z$=" YCC0202"+A$(N,Y/2
1 Your defence controls aredodge left, dodge right, guard up, guard down and duck. You use left and right jabs to weaken youropponent and increase your punching power. Whenthis reaches its highest level you can use the knock-out button.
1 YY
1 Value hands and change cards
1 VALUE player's hand
1 TitleCode3
1 TitleCode2;
1 TitleCode1
1 Title O
1 This game is against the clock. You are given yourorders in the morning andyou have one working day to complete them. First you have to find the suppliers. This is where the town's telephone boxes come in handy; a few calls can save time.
1 This boxing simulation has been officially endorsed by Mr Bruno, So I shall be careful what Isay. The object of the game is to defeat eight boxers in pursuit of the Heavyweight Championship of the World.
1 The games options are selected by icons, this had me fooled for a whileas the chosen icon is highlighted with BRIGHT, something my monitor cannot reproduce. A well presented game which, while absorbing, lacks excitement.
1 STRAIGHT FLUSH
1 STOP THE TAPESy
1 START THE TAPE":
1 SCROLL TITLES
1 SCREEN LAYOUT
1 SAVE""tracecode""CODE 65174,157
1 S$=" XXXXXXXXX X X X X XXXXX XXXXXX X X X X XXXXX XXXXXXX X X XXXXXXX XXXXX X X X X XXXXXX XXXXX X X X X XXXXXXXXX "
1 Running flush, raise
1 REVIEWS
1 READ BETTING DATA
1 QUIT ROUTINE
1 Player stacks
1 Player calls
1 PUSH HL","Save HL on the stack."," PUSH IX","Push the display address onto the stack."," POP DE","Get the display address off the stack."
1 PROFANATION
1 PRINTING ROUTINE
1 PRINT WORD
1 PRINT CLUE
1 PRESS ANY KEY
1 POP IX","Exit from the routine, but firstretrieve..."
1 POKER ;v
1 PLAYERS CARD PRINT
1 PLAYERS BID
1 On defeating an opponent you are given a personal code which will allow youto LOAD a more formidablecontender from tape. Each opponent has a very different style - some even ignore the rules. Fling Long Chop indulges in Thai boxing!
1 OOOOOD8888DDxxxxDMMMMMMM
1 ON, OFF & VECTOR
1 NO CARD CHANGE
1 MAIN ROUTINE pt2
1 MAIN ROUTINE pt1
1 M/CODE LIBRARY 3
1 LD A,0FFh","Start with A at -1. We use A to holdthe quotient of HL/BC.","
1 LD A,(HL)","Fetch the next byte of the character."," LD (DE),A","Put the byte on the screen."," INC HL","Point HL at the next byte down."," INC D","Point DE to the next line down on the screen."
1 LABELLER !2(#!2
1 Johnny, the magenta character, is well animated and able to perform normal or extra high jumps. Touching any of the many and varied nasties will prove to be fatal, as is forgetting the colour of a diamond which has to be found.
1 JUGGERNAUT 16/48 RATING
1 JUGGERNAUT
1 It is easy to write inpenetrablecode and obscure bugs. As with assembler, generous dosages of comments are important if you want to understand today's work tomorrow."
1 If you still can't pass the Warehouse in Manic Miner, then forget any idea of helping Johnny inthis game. It is the mostdemanding platform game I've played. Without the cheat version I would never have completed the first screen!
1 If you are a platform game whizz, then this is for you. If you're merelymortal, forget it. You don't have a chance. I have no doubt that the programmer could provide a mathematical proof that the game really is possible. Couldn't he?
1 If no K,A try poss flush
1 INTERRUPT TRACER
1 INTERRUPT DRIVEN TRACE
1 INPUT WORD
1 Have you ever driven an articulated lorry? (Then how come this isn't an Amstrad?) Trying to back this vehicle into a depotis a kind of hell. Very instructive I'm surebut don't expect to pass your HGV test without trying the real thing.
1 HANDS values + 2ND PAIR
1 HACKER'S NOTES
1 GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGBBBBBBBB
1 GENERAL NOTES
1 FULL HOUSE
1 FRANK BRUNO'S BOXING
1 FRANK BRINO'S BOXING 16/48 RATING:
1 FFFFFFFFFFFFD8888DDxxxxDOOOOOOOMFFFFFFFFFFFFD8888DDxxxxD
1 FEFF A4 Vector to the main FF00 FE routine at FEA4."
1 FEEF Low byte of delay loop counter,"'"FEF0 High byte of same."
1 FEED Displacement for jump to skip the delay.Contains 8 but is POKEd to 0 to include the delay."
1 FEA4 Main routine starts"'"
1 FE9F OFF"'"
1 FE96 ON"'"
1 Discard Nos
1 DIY PUZZLES
1 DIY PUZZLE
1 DIGIT SUBROUTINE
1 DI","Disable interrupts while we are changing mode."," IM1","Back to mode 1."," EI","Enable interupts."," RET","Back to normal basic."
1 DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDxxxxDMMMMMMFFMMMMMMMMMMMMD8888DDxxxxDOOOOOOFFOOOOOO
1 D8888DDxxxxD
1 D8888DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD8888888888888888888888888888888888888888888888888888888888888888pppppppppppppppppppppppppppppppp88888888888888888888888888888888pppppppppppppppppppppppppppppppp88888888888888888888888888888888ppppppppppppppp88pppppppppppppppxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
1 Created with Ramsoft MakeTZX
1 Check for DELETE
1 CROSSWORD
1 COLUMN=25.5
1 COINTREAUZ
1 CHECK FOR FINISH
1 CHANGE CARDS
1 CARDS BACK
1 BBBBBBBBBBBBBBGGGG
1 BBBBBBBBBBBBBBBBBBGGGG
1 BBBBBBBBBBBBBBBBBBBBBB
1 BBBBBBBBBBBB
1 BALACLAVA 1 2 8 00WILCO 3 1 4 00SQUIB 3 7 4 00IOWA 5 1 3 00CAXTON 5 6 5 00SATRAP 7 1 5 00AMEN 7 8 3 00NABOB 9 1 4 00MALTA 9 7 4 00COINTREAU 112 8 00WHITSUN 3 1 6 10ALLOW 1 3 4 10TABOO 7 3 4 10AVON 1 5 3 10CARBON 6 5 5 10LASCAR 1 7 5 10OMAR 8 7 3 10VAULT 1 9 4 10MELBA 7 9 4 10BONANZA 3 116 10C9
1 Apart from the chunky appearance of your opponent,the graphics aregood and well animated. I found this to be a better, more demanding game than 'Rocco' from Gremlin Graphics. It's good to see Elite finallycome up with the goods.
1 ASSEMBLY LISTING
1 ARRAY AND NT E E R UT A LOGICALRED L U LI COMMA SBIN W E BITU E IN E RT X T E IEXTEND OPEN O O E GOR RETURN
1 AN ORANGE SPIRIT THAT SOUNDS AS THOUGH IT DISLIKES WATER.W
1 ALL CALLED."
1 ALL CALLED.
1 ABU SIMBEL PROFANATION (What a mouthful.) 16/48 RATING:
1 ABU SIMBEL
1 <<<<<<<<<<<<<<<<<4
1 ;o$;amt;" "
1 ;''"The input with this module are quite self-explanatory."''"
1 ;"since the last raise either CALL"
1 ;"or STACK."
1 ;"library 3":
1 ;"for the"
1 ;"`5 each into the pot."
1 ;"`10 THANKYOU":
1 ;"`";togo;" to stay"
1 ;"`";togo;" to go + ";raze;" = `";togo+raze
1 ;"You have not enough to play!!":
1 ;"YOURS:";
1 ;"YOUR TURN [s,c,r]"
1 ;"YOU HAVEN'T ENOUGH! ":
1 ;"WHICH? [1-5]"
1 ;"Verified O.K. Press any key. ":
1 ;"VIDEO LABEL";
1 ;"Use up and down keys to read thenotes. Press
1 ;"Use up and down keys to read thenotes.
1 ;"There are ";5
1 ;"The SPECTRUM will act as dealer"
1 ;"TO OPT OUT THEN ENTER ""DDDD""":
1 ;"TITLE IS NOW LOADING":
1 ;"TITLE (MAX=26) ? ":
1 ;"Some of you may wish to play around with the code a little. These addresses may be useful."
1 ;"Saved and verified O.K. Press any key.":
1 ;"STOP THE TAPE":
1 ;"SORRY!"'':
1 ;"SKIPPING TITLE"'':
1 ;"Rewind and play to verify.":
1 ;"Printed card":
1 ;"Press a key if you feel lucky!"
1 ;"Player 1 opens `10":
1 ;"Part 10 of our m/code tutor did a fairly thorough job on mode 2 so I will be brief here."
1 ;"PRESS A KEY":
1 ;"PRESS A KEY (
1 ;"PLAYER STACKS":
1 ;"PLAYER 4:"
1 ;"PLAYER 4"
1 ;"PLAYER 3:";
1 ;"PLAYER 3";
1 ;"PLAYER 2:";
1 ;"PLAYER 2"
1 ;"PLAYER 1:";
1 ;"PLAYER 1";
1 ;"PLAYER ";win-1
1 ;"NOTE"'a$;a$;
1 ;"Line one ?":
1 ;"Line Two ?":
1 ;"Line ";t;:
1 ;"LABELLER":
1 ;"LABELLER"
1 ;"INVALID":
1 ;"I STACK":
1 ;"Hit any key to start again.
1 ;"HOW MUCH? `"
1 ;"For most of the time that this program is running you will see two numbers displayed at the
1 ;"FOR ALL ZX SPECTRUMS":
1 ;"Each deal ends when all players"
1 ;"DIY PUZZLE"
1 ;"CROSSWORD"
1 ;"COPYRIGHT LINE (MAX 25)":
1 ;"COMPUTER TAPE MAGAZINE";
1 ;"CASSETTE LABEL INSERT"'
1 ;"CASSETTE CASE INLAY"''
1 ;"CASSETTE CASE INLAY"'
1 ;"CALL, `";togo:
1 ;"CALL `";togo:
1 ;"All players start with `10,000."
1 ;"ARE YOU SURE YOU WANT TO QUIT? PRESS Y FOR YES OR N FOR NO."
1 ;"ARE YOU IN? [y/n]":
1 ;"AND play the other 4 hands!"
1 ;"A game of":
1 ;", takes ";x(g);" cards.":
1 ;" thinking.. "
1 ;" `";p(f);':
1 ;" WINS.":
1 ;" TO GO: `";togo;
1 ;" POT ";
1 ;" DEALING ":
1 ;" This module of the program allows you to create a label for the side of your cassette tapes. First it will ask for a copyright line which can be up to 25 characters long. Next it requires a side number either one letter or number."
1 ;" Following inputs required:"
1 ;" HOW MANY CARDS? [0-4]"
1 ;" PRESS ANY KEY ":
1 ;" LET THE TAPE RUN
1 ;" ":
1 ;" ":
1 ;" ":
1 90","Subs are not due so skip the printing.","70
1 7{{{{{{{{{{{{{{{{{{{{{{{
1 7{{{{{{{{{{{{{{{{{
1 7{{{{{{{{{{{{{{{{
1 7{{{{{{{{{{{{{{{
1 4 OF A KIND
1 3 of a kind
1 20,0;players;":";calls;" deal ";round;" H:";h;"Rand ";rnd;" s:";u(h);" c:";h(h)+u(h+1);" ":
1 16/48 script
1 00000000000000000001110000000000000000000000000000000000000000000
1 000000000000000000000000000000000002440000000000r00000000000000 000000000000000000000000000000000000000000000000000000000000000000001110000000000000000000000000000000000000000000
1 -t;" lines available"'"for further information"'"MAXIMUM count per line -20 "
1 ,y;c$(c1,2
1 ,y;c$(c1,1
1 , the start of the interrupt routine."
1 **m~#"*mo&
1 *(l>lc);a$:
1 )=c(nc+f):
1 );"hours ";
1 );"
1 )*(l<max)-(k$="7"
1 ));"Minutes."'"PRESS ANY KEY (
1 ) and mode 1 is reselected with
1 (The C Programming Language Prentice-Hall.
1 ((((((((((((((((((((((((((((
1 ((((((((((((((((((((((((((
1 (((((((((((((((((((((((
1 ((((((((((((((((((((
1 (((((((((((((((((((
1 '''"This is debatable. Hisoft claim that other computers can be usedto write C source files, but I suspect that you need to be a bit of a RS232 whizz kid."
1 '''"The C programming language was written by Dennis Ritchie of Bell Laboratories in 1972. It grew up along with the Unix operating system for the DEC PDP 11 minicomputer."
1 '''"Programs will usually be writtenwith the integral editor. This is a fairly crude line editor, but it has a useful search and replace function."
1 '''"Considering the eccentricities of the Spectrum the Hisoft C compiler comes very close to thestandard and all deviations are thoroughly documented."
1 '''"C is a ""small"" language. This
1 '''"Any C compiler has to judged in terms of several criteria;"
1 ''"The efficient compiling and the processor independance of C are rapidly making it THE language for buisiness and sytems programmers."
1 ''"The demo program contains two very short routines. The first is in Basic and the second is 4K of a very short compiled C program. Both ask you to enter ten names and the routine sorts them into alphabetical order andprints them out."
1 ''"NOW in 'C'."
1 ''"If you press
1 ''"Dave Howorth has written a very professional package. Given the lack of competition, he might have been forgiven for doing much less."
1 ''"C is not a ""safe"" language.
1 '"You: `";p(1
1 '"Where 'a' is
1 '"Unix was re-written in C very early in its life. The fact thatthis gave the system processor independance without any loss inefficiency is a testament to thepower of the language."
1 '"This machine is currently in interrupt mode 2. The interrupt routine does all the same thingsas the mode 1 routine and then goes on to print the contents ofsystem variables PPC and SUBPCC."
1 '"They are the current line numberand the statement number within the line."
1 '"The synax is very economical andyou can quickly be seduced by the joy of a ""for"" statement
1 '"The power of C lies in the way that it combines a few low levelelements with a structure which quickly builds them into high level functions."
1 '"The main deficiency is the non implementation of floating pointnumbers. However, to be fair to Hisoft this is the case with almost all 8 bit C compilers."
1 '"The final amounts were:"
1 '"The code starts at 65174 and is 157 bytes long. Interrupt mode 2is called by
1 '"The Standard Function Library isvery much in line with K&R."
1 '"The Basic routine is a bubble sort the C routine uses a recursive version of Hoares ""quicksort"", this would be impossible in Basic."
1 '"Programs can be slowed down by using a wait loop in the routineso that very little time is leftbetween the interrupts for the basic program."
1 '"Player ";f-1
1 '"POKE 65261,8 for normal speed."
1 '"POKE 65261,0 for slow motion,":
1 '"Many of the more interesting programming techniques involve the use of functions (or proced-ures) with local variables."
1 '"Many of the more commonly used functions are built into the compiler. Other functions have to be extracted from the libraryfile at compile time."
1 '"If your interest in computing goes beyond the Spectrum and zap games you will find that learning C is a fascinating and rewarding challenge."
1 '"I wrote a short source file on Tasword and after adapting the code to include appropriate linefeeds I tried to compile it."
1 '"I cannot recommend this package if you only have tape storage."
1 '"Fork out `22.95 for Kernighan & Ritchie's expensive, excellent and essential book,
1 '"At a first glance the language looks very hieroglyphic. This isa fairly superficial problem, sodon't let it frighten you. Aftera while you will prefer""{}"" to
1 '"An empty C program compiles to 3K of code. 40K of user RAM is not enough for C to compete withassembler in mega game writing for the Spectrum."
1 '"After the program has finished you will need to reset and LOAD""""."
1 '"A short program can take over a minute to compile with the library on microdrive."
1 '"16/48 RATING:
1 '"(See chapter 25 in the manual. The PLUS guide is hopeless.)"
1 '" Finally it offers the option of a one of two line title. The maximum length for each of those lines is 26."
1 "library 3"
1 "`25 for Hisoft C and about `16 on a tutorial book and see how much you can save! The cheapest C compiler I could find for the Apricot was `235!"
1 "With shuffle [y/n]?";z$:
1 "WISH NUT MIXED FOR A FESTIVAL.","PERMIT FROM A SMALL OWL"
1 "To my surprise the compiler did compile it, but the editor wouldinsist on reading it all as one line. The editor crashes if it tries to edit lines of over 80 characters."
1 "TitleCode3"
1 "TitleCode2"
1 "TitleCode1"
1 "There is,of course, nothing to stop you writing your own set of library functions to make up for this deficiency."
1 "THIS WHOLE ISLAND WON THE GEORGECROSS.","AN ORANGE SPIRIT THAT SOUNDS AS THOUGH IT DISLIKES WATER."
1 "See note.","The code has been positioned so that the main routine ends just before FEFFh(65279) and the two main subroutines follow at FF01."
1 "SIDE 1 OR 2 ? ";Z$:
1 "RULED CARD ? ";a$:
1 "Press x to end, any other key to start again."
1 "Overall title (max 14) ? ";v$:
1 "Name for label";x$
1 "MORE [y/n]?";z$:
1 "Load screen ? ";a$:
1 "LABELLER"
1 "How many lines (max 14) ? ";z:
1 "FIRST IN BASIC."
1 "FEFF DEFB A4","FEFF is the address formed from the Interrupt register and the usual FF on the data bus.","FF00 DEFB FE","These two bytes contain the address
1 "ENTER the word ";
1 "ENTER name number ";n:
1 "ENTER FILENAME ON DRIVE 1";A$:
1 "DIY PUZZLE"
1 "Classification (max 5) ";x$:
1 "Cassette type ? ";v$:
1 "CROSSWORD"
1 "CONFUSE A BOOT AND YOU WILL HAVEA FORBIDDEN TOPIC.","A BRIGHT STAR UP, A RIVER DOWN.","ELEMEMTAL DIAMOND","AN INDIAN SAILOR COULD BE A RASCAL UNDER DIFFERENT ORDERS."
1 "CASSETTE LABEL INSERT ","CASSETTE CASE INLAY ","VIDEO LABEL ","INSTRUCTION "," QUIT "
1 "Blank card ? ";a$:
1 "BASIC does not have these so thejoys (and pitfalls)of recursive functions are only available with other languages."
1 "AGAIN ? ";A$:
1 "A PERSIAN GOVERNOR OR RULER","THE LAST WORD OF THE BIBLE","WEALTHY AND LUXURY LOVING AND NOT APPLICABLE TO ROBERT"
1 "A CRIMEAN BATTLE AND WOOL THAT IS PULED OVER THE EYES.","RADIO ASSIGNEMENT FOR ASSENT.","A DAMP ONE WILL NOT IMPRESS.","A STATE OF THE UNION. ","WHAT 16/48 DID FOR COPY TYPING HE DID FOR WRITING IN 1476."
1 "80 LET count=count+1","count the labels so that you know how many stamps to buy!","90 GOTO 30","Do the next label."
1 "23658",o:
1 "23301",(k$="q")+2
1 "23300",16
1 "10 RESTORE 1000","The next READ will start lookingfor data at line 1000.","20 LET count=0","Set counter to zero.","30 READ n$","LET n$ = the next data item.","40 IF n$=""END""
1 "1 OR 2 LINES ? ";A:
1 "---- KHAYYAM, FAMOUS FOR HIS 'RUBAIYAT'.","DALEY DOES IT WITH A POLE.","OPERATIC TOAST?","SADDLE SOAP?"
1 ","This jump has a displacement of 08 to skip the delay routine. POKE 65261,0 to include the delay, POKE 65261,8 to skip it."
1 ","Stop if you have read the last name and address."
1 ","Skip the trace if not running a program."," LD IX,50FDh","This is the display address for printing the line number."
1 ","Print units digit."
1 ","Print the units digit."," JR
1 ","Print the tens and return with the units."
1 ","Print the hundreds and return the remainder."," LD BC,10","Now do the tens."," CALL
1 ","Print tens digit and return withunits in HL."," LD A,L","Put units digit in A."," ADD ""0""","Add ASCII for zero to get ASCII for digit."," CALL
1 ","Print hundreds digit and return ready to do tens."," LD BC,10","Prepare for tens digit."," CALL
1 ","If all 8 bytes are not done, do the next one."," INC IX","Advance the screen address to the next character position."," POP HL","Retrieve HL from the stack."," RET","Back where it was called from.","end"
1 ","If HL is still positive go back and see if we can subtract BC once more, if not..."," ADD HL,BC","Restore HL to give the remainder."
1 ","Divide HL by BC(line number by 1000), print the quotient and return with the remainder in HL."
1 ","Call the special, fast print routine (next page)."," RET","Return to the main routine.","end"
1 "(300+100*
1 "'''"When you see the picture use keys
1 "'''"Follow the prompts and when the picture is displayed press"''"
1 "''"Cursor"'"keys"'"move *"''"
1 "''"At present the program is configured for the ZX but should work with any dot matrix printer that supports the ZX Spectrum COPY command.":
1 ""SEP85""","If the 2nd to 6th letters of c$ are not equal to this month....","
1 ""BEGIN END.""."
1 " LD HL,(CHARS)","Load HL from the system variableCHARS (23606) which points to the character set."," LD B,0","The code for the digit goes intoBC; since it is only one byte, the high byte is zero."," LD C,A","BC now holds the code for the digit."
1 " RST 38h","Do the IM1 routine to update theframe counter and read the keyboard."," DI","Disable the interrupts for the duration of this routine."," PUSH AF","Save the registers."," PUSH BC","Save the registers."," PUSH DE","Save the registers."," PUSH HL","Save the registers."," PUSH IX","Save the registers."
1 " RL C","and you have multiplied the codeby 8."," RL B","This is because each character is stored as 8 bytes."
1 " POP HL","all the registers..."," POP DE","from..."," POP BC","the...."," POP AF","stack."
1 " OR A","Reset the carry flag."," RL C","Rotate C throught the carry so that the highest bit..."," RL B","goes into B."," RL C","Do this three times..."," RL B","with effect of doubling BC each time..."
1 " LD L,A","HL now holds the statement number (SUBPCC)."
1 " LD IX,50FDh","This is the display address for the statement number."," LD H,0","The statement number is only onebyte, so the high byte is zero."," LD A,(SUBPCC)","Fetch the statement number from the system variable SUBPCC. SUBPCC=23623."
1 " LD HL,(PPC)","Load HL from PPC (23621), the systems variable holding the line number."," LD A,H","Transfer the high byte to A."," ADD 216","This will give a carry if the line number is over 9999 becausewe are in immediate BASIC mode."
1 " LD BC,1400H","Load BC with the number times todo the delay loop.","
1 " LD BC,1000d","Prepare to find the thousands digit with the DIGit routine."," CALL
1 " LD BC,100","Prepare to print the hundreds digit."," CALL
1 " LD BC,100","Prepare to print hundreds digit."," CALL
1 " LD A,L","Put the units into A."," ADD ""0""","Add the code for zero to get thecode for the digit."
1 " JR NZ,
1 " JR C,
1 " EI","Enable the interrupts."," RETI","Return to continue with the BASIC program. (
1 " EI","Enable interrupts after the return instruction."," RET","Back to basic with the trace on.","","","
1 " ADD HL,BC","HL now points to the 8 bytes which define the digit."," LD B,8","B counts the 8 bytes onto the screen."
1 " ADD ""0""","Add the code for zero to get thecode for the digit."," CALL
1 "
1 you will return to this page and the picture will remain as you left it."
1 to"'"answer a"'"clue."''"
1 to turn back a page,"''" Any other key to page through the review."'''"The display will stay on the screen for as long as you hold a key down."''"Don't forget
1 to scramble or unscramble your screen."'''"If you press
1 to quit."''"
1 to quit and move on,"''"
1 to move on."
1 to move on,
1 to copy."
1 statement 'c' is performed."
1 routines follow.)"
1 routine."'"
1 routine."
1 loads a demo."
1 initialisation statement and the loop 'd' is repeated until
1 from this screen to loadthe next program."
1 from this screen you can load a new screenfrom tape or microdrive."
1 for(a;b;c){"'" d"'" }
1 condition 'b'becomes false and at the end of each loop
1 changes"'"mode"'"(across or"'"down)"''"Press"'"
1 again.","
1 XXXXXXXXX X X X X XXXXX XXXXXX X X X X XXXXX XXXXXXX X X XXXXXXX XXXXX X X X X XXXXXX XXXXX X X X X XXXXXXXXX K
1 The scope of its 'standard' function library,"
1 QUITS"''"
1 LEAVE TAPE RUNNING
1 ISBN 0-13-110163-3)"
1 INC A","Increment the quotient."," SBC HL,BC","Subtract BC from HL"," JR NC,
1 How efficiently and quickly it compiles C programs and"
1 How easy it is to transfer programs to and from other machines and compilers."
1 HACKER'S NOTES
1 DRAW POKER.
1 DON'T RUN OR CLEAR:GOTO 1.":
1 DI","Disable interrupts while we sortthis out."," LD A,0FEh","Put the high byte of the interrupt vector in A."," LD I,A","and thence into the Interrupt Register."," IM2","Select mode 2."
1 DEC BC","Decrement the counter."," LD A,B","Put the High byte in A."," OR C","This can only result in zero if both bytes are zero."
1 Compatability with the standard language as defined in ""THE C PROGRAMMING LANGUAGE"" by Kernighan & Ritchie (K&R),"
1 Carrick Thomson with some help"
1 (but only ifyou have microdrives)
1 "+A$+" ":
1 for tape,";
1 for microdrive,";
1 for menu."
1 Ruled card - this will give you an card with 19 blank ruled sides
1 Print card-This utilizes 64 chars per line and allows program titles to be 24 characters long while tape location should be input in the format 006"
1 Overall title - this is the information for the spine of the card - maximum length 14
1 Load screen - This allows you to load screens from commercial tapes and copy them. It is fairly intellgent and will only code destined for the screen.
1 HOW TO USE IT
1 Extra lines - this option allows four lines of up to 20 characters to be inserted in the smaller part of the inlay card."
1 Copyright line - as explained previously.
1 Cassette type - this is a three character input in the format C10.
1 Blank card - this is self explanatory.
1 pages backwards.
1 PRICE: `6.95 PUBLISHER: Elite Systems Anchor House, Anchor Road, Aldridge, Walsall, West Midlands.
1 PRICE: `7.95 FROM: Gremlin Graphics. Alpha House, 10 Carver Street, Sheffield, Yorks S1 4FS.
1 BLUFF
1 AUTHOR: Pete Cooke PRICE: `7.95 PUBLISHER: CRL Group PLC CRL House, 9 Kings Yard, Carpenters Road, London E15 2HD
1 Upon entering the temple Johnny Jones has fallen victim to the Pharaoh's diabolical curse. His only hope is to find the temple's mortuary chamberand discover its secret. Some hope.
1 Here is a truly novel game, an articulated lorry simulation. You drive your lorry around town, stopping at different suppliers and taking the appropriate loads back to your depot.Is it easy? No it is not.
1 "
1 ";
1
1
1